home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / pie_lo11.zip / LASTONES.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-21  |  14KB  |  907 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.     String   STRING026
  45.     String   STRING027
  46.     String   STRING028
  47.     String   STRING029
  48.     String   STRING030
  49.     String   STRING031
  50.     String   STRING032
  51.     String   STRING033
  52.     String   STRING034
  53.     String   STRING035
  54.     String   STRING036
  55.     String   STRING037
  56.     String   STRING038
  57.     String   STRING039
  58.     String   STRING040
  59.     String   STRING041
  60.     String   STRING042
  61.     String   STRING043
  62.     String   STRING044
  63.     String   STRING045
  64.     String   STRING046
  65.     String   STRING047
  66.     String   STRING048
  67.     String   STRING049
  68.     String   STRING050
  69.     String   STRING051
  70.     String   STRING052
  71.     String   STRING053
  72.     String   STRING054
  73.     String   STRING055
  74.     String   STRING056
  75.     String   STRING057
  76.     String   STRING058
  77.     String   STRING059
  78.     String   STRING060
  79.     String   STRING061
  80.     String   STRING062
  81.     String   STRING063
  82.     String   STRING064
  83.     String   STRING065
  84.     String   STRING066
  85.     String   STRING067
  86.     String   STRING068
  87.     String   STRING069
  88.     String   STRING070
  89.     String   STRING071
  90.     String   STRING072
  91.     String   STRING073
  92.     String   STRING074
  93.     String   STRING075
  94.     String   STRING076
  95.     String   STRING077
  96.     String   STRING078
  97.     String   STRING079
  98.     String   STRING080
  99.     String   STRING081
  100.     String   STRING082
  101.     String   STRING083
  102.     String   STRING084
  103.     String   STRING085
  104.     String   STRING086
  105.     String   STRING087
  106.     String   STRING088
  107.     String   STRING089
  108.     String   STRING090
  109.     String   STRING091
  110.     String   STRING092
  111.     String   STRING093
  112.     String   STRING094
  113.     String   STRING095
  114.     String   STRING096
  115.     String   STRING097
  116.     String   STRING098
  117.     String   STRING099
  118.     String   STRING100
  119.     String   STRING101
  120.     String   STRING102
  121.     String   STRING103
  122.     String   STRING104
  123.     String   STRING105
  124.     String   STRING106
  125.     String   STRING107
  126.     String   STRING108
  127.     String   STRING109
  128.     String   STRING110
  129.     String   STRING111
  130.     String   STRING112
  131.     String   STRING113
  132.     String   STRING114
  133.     String   STRING115
  134.     String   STRING116
  135.     String   STRING117
  136.     String   STRING118
  137.     String   STRING119
  138.     String   STRING120
  139.     String   STRING121
  140.     String   STRING122
  141.     String   STRING123
  142.     String   STRING124
  143.     String   STRING125
  144.     String   STRING126
  145.     String   STRING127
  146.     String   STRING128
  147.     String   STRING129
  148.     String   STRING130
  149.     String   STRING131
  150.     String   STRING132
  151.     String   STRING133
  152.     String   STRING134
  153.     String   STRING135
  154.     String   STRING136
  155.     String   STRING137
  156.  
  157. ;------------------------------------------------------------------------------
  158.  
  159.     GetUser
  160.     STRING132 = U_Ful()
  161.     STRING133 = U_Fdl()
  162.     STRING134 = U_MsgRd()
  163.     STRING135 = U_MsgWr()
  164.     STRING136 = U_Stat(3)
  165.     STRING137 = U_Stat(2)
  166.     If (Exist(PPEPath() + "LASTONES.CFG")) Then
  167.         FOpen 1, PPEPath() + "LASTONES.CFG", 2, 3
  168.         FGet 1, STRING121
  169.         FGet 1, STRING122
  170.         FGet 1, STRING123
  171.         FGet 1, STRING124
  172.         FGet 1, STRING125
  173.         FGet 1, STRING126
  174.         FGet 1, STRING127
  175.         FGet 1, STRING128
  176.         FGet 1, STRING129
  177.         FGet 1, STRING130
  178.         FGet 1, STRING131
  179.         FClose 1
  180.         If (Exist(PPEPath() + "LASTONES.DAT")) Then
  181.             FOpen 1, PPEPath() + "LASTONES.DAT", 2, 3
  182.             FGet 1, STRING006
  183.             FGet 1, STRING007
  184.             FGet 1, STRING008
  185.             FGet 1, STRING009
  186.             FGet 1, STRING010
  187.             FGet 1, STRING011
  188.             FGet 1, STRING012
  189.             FGet 1, STRING013
  190.             FGet 1, STRING014
  191.             FGet 1, STRING015
  192.             FGet 1, STRING016
  193.             FGet 1, STRING017
  194.             FGet 1, STRING018
  195.             FGet 1, STRING019
  196.             FGet 1, STRING020
  197.             FGet 1, STRING021
  198.             FGet 1, STRING022
  199.             FGet 1, STRING023
  200.             FGet 1, STRING024
  201.             FGet 1, STRING025
  202.             FGet 1, STRING026
  203.             FGet 1, STRING027
  204.             FGet 1, STRING028
  205.             FGet 1, STRING029
  206.             FGet 1, STRING030
  207.             FGet 1, STRING031
  208.             FGet 1, STRING032
  209.             FGet 1, STRING033
  210.             FGet 1, STRING034
  211.             FGet 1, STRING035
  212.             FGet 1, STRING036
  213.             FGet 1, STRING037
  214.             FGet 1, STRING038
  215.             FGet 1, STRING039
  216.             FGet 1, STRING040
  217.             FGet 1, STRING041
  218.             FGet 1, STRING042
  219.             FGet 1, STRING043
  220.             FGet 1, STRING044
  221.             FGet 1, STRING045
  222.             FGet 1, STRING046
  223.             FGet 1, STRING047
  224.             FGet 1, STRING048
  225.             FGet 1, STRING049
  226.             FGet 1, STRING050
  227.             FClose 1
  228.             If (Exist(PPEPath() + "ACTIONS.DAT")) Then
  229.                 FOpen 1, PPEPath() + "ACTIONS.DAT", 2, 3
  230.                 FGet 1, STRING058
  231.                 FGet 1, STRING059
  232.                 FGet 1, STRING060
  233.                 FGet 1, STRING061
  234.                 FGet 1, STRING062
  235.                 FGet 1, STRING063
  236.                 FGet 1, STRING064
  237.                 FGet 1, STRING065
  238.                 FGet 1, STRING066
  239.                 FGet 1, STRING067
  240.                 FGet 1, STRING068
  241.                 FGet 1, STRING069
  242.                 FGet 1, STRING070
  243.                 FGet 1, STRING071
  244.                 FGet 1, STRING072
  245.                 FGet 1, STRING073
  246.                 FGet 1, STRING074
  247.                 FGet 1, STRING075
  248.                 FGet 1, STRING076
  249.                 FGet 1, STRING077
  250.                 FGet 1, STRING078
  251.                 FGet 1, STRING079
  252.                 FGet 1, STRING080
  253.                 FGet 1, STRING081
  254.                 FGet 1, STRING082
  255.                 FGet 1, STRING083
  256.                 FGet 1, STRING084
  257.                 FGet 1, STRING085
  258.                 FGet 1, STRING086
  259.                 FGet 1, STRING087
  260.                 FGet 1, STRING088
  261.                 FGet 1, STRING089
  262.                 FGet 1, STRING090
  263.                 FGet 1, STRING091
  264.                 FGet 1, STRING092
  265.                 FGet 1, STRING093
  266.                 FGet 1, STRING094
  267.                 FGet 1, STRING095
  268.                 FGet 1, STRING096
  269.                 FGet 1, STRING097
  270.                 FGet 1, STRING098
  271.                 FGet 1, STRING099
  272.                 FGet 1, STRING100
  273.                 FGet 1, STRING101
  274.                 FGet 1, STRING102
  275.                 FGet 1, STRING103
  276.                 FGet 1, STRING104
  277.                 FGet 1, STRING105
  278.                 FGet 1, STRING106
  279.                 FGet 1, STRING107
  280.                 FGet 1, STRING108
  281.                 FGet 1, STRING109
  282.                 FGet 1, STRING110
  283.                 FGet 1, STRING111
  284.                 FGet 1, STRING112
  285.                 FGet 1, STRING113
  286.                 FGet 1, STRING114
  287.                 FGet 1, STRING115
  288.                 FGet 1, STRING116
  289.                 FGet 1, STRING117
  290.                 FGet 1, STRING118
  291.                 FGet 1, STRING119
  292.                 FGet 1, STRING120
  293.                 FClose 1
  294.                 FOpen 1, PPEPath() + "ACTION.DAT", 2, 3
  295.                 FGet 1, STRING051
  296.                 FGet 1, STRING052
  297.                 FGet 1, STRING053
  298.                 FGet 1, STRING054
  299.                 FGet 1, STRING055
  300.                 FGet 1, STRING056
  301.                 FGet 1, STRING057
  302.                 FClose 1
  303.                 FOpen 1, PPEPath() + "LASTONE.DAT", 2, 3
  304.                 FGet 1, STRING001
  305.                 FGet 1, STRING002
  306.                 FGet 1, STRING003
  307.                 FGet 1, STRING004
  308.                 FGet 1, STRING005
  309.                 FClose 1
  310.                 FCreate 1, PPEPath() + "TEMP." + PcbNode(), 1, 0
  311.                 FPutLn 1, STRING132
  312.                 FPutLn 1, STRING133
  313.                 FPutLn 1, STRING134
  314.                 FPutLn 1, STRING135
  315.                 FPutLn 1, STRING136
  316.                 FPutLn 1, STRING137
  317.                 FClose 1
  318.                 If (STRING122 == "YES") Then
  319.                     DispFile PPEPath() + "LASTONES.PCB", 1
  320.                 Endif
  321.                 AnsiPos 13, 10
  322.                 Print STRING124 + STRING001
  323.                 AnsiPos 26, 10
  324.                 Print STRING125 + STRING002
  325.                 AnsiPos 63, 10
  326.                 Print STRING126 + STRING003
  327.                 AnsiPos 7, 10
  328.                 Print STRING128 + STRING130 + STRING004
  329.                 AnsiPos 68, 10
  330.                 Print STRING127 + STRING005
  331.                 AnsiPos 46, 10
  332.                 Print STRING123 + STRING051 + " " + STRING052 + " " + STRING053 + " " + STRING054 + " " + STRING055 + " " + STRING056 + " " + STRING057
  333.                 AnsiPos 13, 11
  334.                 Print STRING124 + STRING006
  335.                 AnsiPos 26, 11
  336.                 Print STRING125 + STRING007
  337.                 AnsiPos 63, 11
  338.                 Print STRING126 + STRING008
  339.                 AnsiPos 7, 11
  340.                 Print STRING128 + STRING130 + STRING009
  341.                 AnsiPos 68, 11
  342.                 Print STRING127 + STRING010
  343.                 AnsiPos 46, 11
  344.                 Print STRING123 + STRING058 + " " + STRING059 + " " + STRING060 + " " + STRING061 + " " + STRING062 + " " + STRING063 + " " + STRING064
  345.                 AnsiPos 13, 12
  346.                 Print STRING124 + STRING011
  347.                 AnsiPos 26, 12
  348.                 Print STRING125 + STRING012
  349.                 AnsiPos 63, 12
  350.                 Print STRING126 + STRING013
  351.                 AnsiPos 7, 12
  352.                 Print STRING128 + STRING130 + STRING014
  353.                 AnsiPos 68, 12
  354.                 Print STRING127 + STRING015
  355.                 AnsiPos 46, 12
  356.                 Print STRING123 + STRING065 + " " + STRING066 + " " + STRING067 + " " + STRING068 + " " + STRING069 + " " + STRING070 + " " + STRING071
  357.                 AnsiPos 13, 13
  358.                 Print STRING124 + STRING016
  359.                 AnsiPos 26, 13
  360.                 Print STRING125 + STRING017
  361.                 AnsiPos 63, 13
  362.                 Print STRING126 + STRING018
  363.                 AnsiPos 7, 13
  364.                 Print STRING128 + STRING130 + STRING019
  365.                 AnsiPos 68, 13
  366.                 Print STRING127 + STRING020
  367.                 AnsiPos 46, 13
  368.                 Print STRING123 + STRING072 + " " + STRING073 + " " + STRING074 + " " + STRING075 + " " + STRING076 + " " + STRING077 + " " + STRING078
  369.                 AnsiPos 13, 14
  370.                 Print STRING124 + STRING021
  371.                 AnsiPos 26, 14
  372.                 Print STRING125 + STRING022
  373.                 AnsiPos 63, 14
  374.                 Print STRING126 + STRING023
  375.                 AnsiPos 7, 14
  376.                 Print STRING128 + STRING130 + STRING024
  377.                 AnsiPos 68, 14
  378.                 Print STRING127 + STRING025
  379.                 AnsiPos 46, 14
  380.                 Print STRING123 + STRING079 + " " + STRING080 + " " + STRING081 + " " + STRING082 + " " + STRING083 + " " + STRING084 + " " + STRING085
  381.                 AnsiPos 13, 15
  382.                 Print STRING124 + STRING026
  383.                 AnsiPos 26, 15
  384.                 Print STRING125 + STRING027
  385.                 AnsiPos 63, 15
  386.                 Print STRING126 + STRING028
  387.                 AnsiPos 7, 15
  388.                 Print STRING128 + STRING130 + STRING029
  389.                 AnsiPos 68, 15
  390.                 Print STRING127 + STRING030
  391.                 AnsiPos 46, 15
  392.                 Print STRING123 + STRING086 + " " + STRING087 + " " + STRING088 + " " + STRING089 + " " + STRING090 + " " + STRING091 + " " + STRING092
  393.                 AnsiPos 13, 16
  394.                 Print STRING124 + STRING031
  395.                 AnsiPos 26, 16
  396.                 Print STRING125 + STRING032
  397.                 AnsiPos 63, 16
  398.                 Print STRING126 + STRING033
  399.                 AnsiPos 7, 16
  400.                 Print STRING128 + STRING130 + STRING034
  401.                 AnsiPos 68, 16
  402.                 Print STRING127 + STRING035
  403.                 AnsiPos 46, 16
  404.                 Print STRING123 + STRING093 + " " + STRING094 + " " + STRING095 + " " + STRING096 + " " + STRING097 + " " + STRING098 + " " + STRING099
  405.                 AnsiPos 13, 17
  406.                 Print STRING124 + STRING036
  407.                 AnsiPos 26, 17
  408.                 Print STRING125 + STRING037
  409.                 AnsiPos 63, 17
  410.                 Print STRING126 + STRING038
  411.                 AnsiPos 7, 17
  412.                 Print STRING128 + STRING130 + STRING039
  413.                 AnsiPos 68, 17
  414.                 Print STRING127 + STRING040
  415.                 AnsiPos 46, 17
  416.                 Print STRING123 + STRING100 + " " + STRING101 + " " + STRING102 + " " + STRING103 + " " + STRING104 + " " + STRING105 + " " + STRING106
  417.                 AnsiPos 13, 18
  418.                 Print STRING124 + STRING041
  419.                 AnsiPos 26, 18
  420.                 Print STRING125 + STRING042
  421.                 AnsiPos 63, 18
  422.                 Print STRING126 + STRING043
  423.                 AnsiPos 7, 18
  424.                 Print STRING128 + STRING130 + STRING044
  425.                 AnsiPos 68, 18
  426.                 Print STRING127 + STRING045
  427.                 AnsiPos 46, 18
  428.                 Print STRING123 + STRING107 + " " + STRING108 + " " + STRING109 + " " + STRING110 + " " + STRING111 + " " + STRING112 + " " + STRING113
  429.                 AnsiPos 13, 19
  430.                 Print STRING124 + STRING046
  431.                 AnsiPos 26, 19
  432.                 Print STRING125 + STRING047
  433.                 AnsiPos 63, 19
  434.                 Print STRING126 + STRING048
  435.                 AnsiPos 7, 19
  436.                 Print STRING128 + STRING130 + STRING049
  437.                 AnsiPos 68, 19
  438.                 Print STRING127 + STRING050
  439.                 AnsiPos 46, 19
  440.                 Print STRING123 + STRING114 + " " + STRING115 + " " + STRING116 + " " + STRING117 + " " + STRING118 + " " + STRING119 + " " + STRING120
  441.                 Delete PPEPath() + "LASTONES.DAT"
  442.                 FCreate 1, PPEPath() + "LASTONES.DAT", 1, 0
  443.                 FPutLn 1, STRING001
  444.                 FPutLn 1, STRING002
  445.                 FPutLn 1, STRING003
  446.                 FPutLn 1, STRING004
  447.                 FPutLn 1, STRING005
  448.                 FPutLn 1, STRING006
  449.                 FPutLn 1, STRING007
  450.                 FPutLn 1, STRING008
  451.                 FPutLn 1, STRING009
  452.                 FPutLn 1, STRING010
  453.                 FPutLn 1, STRING011
  454.                 FPutLn 1, STRING012
  455.                 FPutLn 1, STRING013
  456.                 FPutLn 1, STRING014
  457.                 FPutLn 1, STRING015
  458.                 FPutLn 1, STRING016
  459.                 FPutLn 1, STRING017
  460.                 FPutLn 1, STRING018
  461.                 FPutLn 1, STRING019
  462.                 FPutLn 1, STRING020
  463.                 FPutLn 1, STRING021
  464.                 FPutLn 1, STRING022
  465.                 FPutLn 1, STRING023
  466.                 FPutLn 1, STRING024
  467.                 FPutLn 1, STRING025
  468.                 FPutLn 1, STRING026
  469.                 FPutLn 1, STRING027
  470.                 FPutLn 1, STRING028
  471.                 FPutLn 1, STRING029
  472.                 FPutLn 1, STRING030
  473.                 FPutLn 1, STRING031
  474.                 FPutLn 1, STRING032
  475.                 FPutLn 1, STRING033
  476.                 FPutLn 1, STRING034
  477.                 FPutLn 1, STRING035
  478.                 FPutLn 1, STRING036
  479.                 FPutLn 1, STRING037
  480.                 FPutLn 1, STRING038
  481.                 FPutLn 1, STRING039
  482.                 FPutLn 1, STRING040
  483.                 FPutLn 1, STRING041
  484.                 FPutLn 1, STRING042
  485.                 FPutLn 1, STRING043
  486.                 FPutLn 1, STRING044
  487.                 FPutLn 1, STRING045
  488.                 FPutLn 1, STRING046
  489.                 FPutLn 1, STRING047
  490.                 FPutLn 1, STRING048
  491.                 FPutLn 1, STRING049
  492.                 FPutLn 1, STRING050
  493.                 FClose 1
  494.                 Delete PPEPath() + "ACTIONS.DAT"
  495.                 FCreate 1, PPEPath() + "ACTIONS.DAT", 1, 0
  496.                 FPutLn 1, STRING051
  497.                 FPutLn 1, STRING052
  498.                 FPutLn 1, STRING053
  499.                 FPutLn 1, STRING054
  500.                 FPutLn 1, STRING055
  501.                 FPutLn 1, STRING056
  502.                 FPutLn 1, STRING057
  503.                 FPutLn 1, STRING058
  504.                 FPutLn 1, STRING059
  505.                 FPutLn 1, STRING060
  506.                 FPutLn 1, STRING061
  507.                 FPutLn 1, STRING062
  508.                 FPutLn 1, STRING063
  509.                 FPutLn 1, STRING064
  510.                 FPutLn 1, STRING065
  511.                 FPutLn 1, STRING066
  512.                 FPutLn 1, STRING067
  513.                 FPutLn 1, STRING068
  514.                 FPutLn 1, STRING069
  515.                 FPutLn 1, STRING070
  516.                 FPutLn 1, STRING071
  517.                 FPutLn 1, STRING072
  518.                 FPutLn 1, STRING073
  519.                 FPutLn 1, STRING074
  520.                 FPutLn 1, STRING075
  521.                 FPutLn 1, STRING076
  522.                 FPutLn 1, STRING077
  523.                 FPutLn 1, STRING078
  524.                 FPutLn 1, STRING079
  525.                 FPutLn 1, STRING080
  526.                 FPutLn 1, STRING081
  527.                 FPutLn 1, STRING082
  528.                 FPutLn 1, STRING083
  529.                 FPutLn 1, STRING084
  530.                 FPutLn 1, STRING085
  531.                 FPutLn 1, STRING086
  532.                 FPutLn 1, STRING087
  533.                 FPutLn 1, STRING088
  534.                 FPutLn 1, STRING089
  535.                 FPutLn 1, STRING090
  536.                 FPutLn 1, STRING091
  537.                 FPutLn 1, STRING092
  538.                 FPutLn 1, STRING093
  539.                 FPutLn 1, STRING094
  540.                 FPutLn 1, STRING095
  541.                 FPutLn 1, STRING096
  542.                 FPutLn 1, STRING097
  543.                 FPutLn 1, STRING098
  544.                 FPutLn 1, STRING099
  545.                 FPutLn 1, STRING100
  546.                 FPutLn 1, STRING101
  547.                 FPutLn 1, STRING102
  548.                 FPutLn 1, STRING103
  549.                 FPutLn 1, STRING104
  550.                 FPutLn 1, STRING105
  551.                 FPutLn 1, STRING106
  552.                 FPutLn 1, STRING107
  553.                 FPutLn 1, STRING108
  554.                 FPutLn 1, STRING109
  555.                 FPutLn 1, STRING110
  556.                 FPutLn 1, STRING111
  557.                 FPutLn 1, STRING112
  558.                 FPutLn 1, STRING113
  559.                 FPutLn 1, STRING114
  560.                 FPutLn 1, STRING115
  561.                 FPutLn 1, STRING116
  562.                 FPutLn 1, STRING117
  563.                 FPutLn 1, STRING118
  564.                 FPutLn 1, STRING119
  565.                 FPutLn 1, STRING120
  566.                 FClose 1
  567.                 :LABEL001
  568.                 AnsiPos 3, 22
  569.                 Print "                                                                           "
  570.                 Delay 1
  571.                 AnsiPos 33, 22
  572.                 Print "@X08LastDudes 1.o1"
  573.                 Delay 1
  574.                 If (Inkey() <> Chr(13)) Then
  575.                     AnsiPos 33, 22
  576.                     Print "@X03LastDudes 1.o1"
  577.                     Delay 1
  578.                     If (Inkey() <> Chr(13)) Then
  579.                         AnsiPos 33, 22
  580.                         Print "@X07LastDudes 1.o1"
  581.                         Delay 1
  582.                         If (Inkey() <> Chr(13)) Then
  583.                             AnsiPos 33, 22
  584.                             Print "@X0BLastDudes 1.o1"
  585.                             Delay 1
  586.                             If (Inkey() <> Chr(13)) Then
  587.                                 AnsiPos 33, 22
  588.                                 Print "@X0FLastDudes 1.o1"
  589.                                 Delay 25
  590.                                 If (Inkey() <> Chr(13)) Then
  591.                                     AnsiPos 33, 22
  592.                                     Print "@X0BLastDudes 1.o1"
  593.                                     Delay 1
  594.                                     If (Inkey() <> Chr(13)) Then
  595.                                         AnsiPos 33, 22
  596.                                         Print "@X07LastDudes 1.o1"
  597.                                         Delay 1
  598.                                         If (Inkey() <> Chr(13)) Then
  599.                                             AnsiPos 33, 22
  600.                                             Print "@X03LastDudes 1.o1"
  601.                                             Delay 1
  602.                                             If (Inkey() <> Chr(13)) Then
  603.                                                 AnsiPos 33, 22
  604.                                                 Print "@X08LastDudes 1.o1"
  605.                                                 Delay 25
  606.                                                 If (Inkey() <> Chr(13)) Then
  607.                                                     Delay 25
  608.                                                     If (Inkey() <> Chr(13)) Then
  609.                                                         Delay 25
  610.                                                         If (Inkey() <> Chr(13)) Then
  611.                                                             Delay 25
  612.                                                             If (Inkey() <> Chr(13)) Then
  613.                                                                 AnsiPos 3, 22
  614.                                                                 Print "                                                                           "
  615.                                                                 AnsiPos 21, 22
  616.                                                                 Print "@X08Code"
  617.                                                                 Delay 1
  618.                                                                 If (Inkey() <> Chr(13)) Then
  619.                                                                     AnsiPos 21, 22
  620.                                                                     Print "@X03Code@X08 by"
  621.                                                                     Delay 1
  622.                                                                     If (Inkey() <> Chr(13)) Then
  623.                                                                         AnsiPos 21, 22
  624.                                                                         Print "@X07Code @X03by @X08Cuminous"
  625.                                                                         Delay 1
  626.                                                                         If (Inkey() <> Chr(13)) Then
  627.                                                                             AnsiPos 21, 22
  628.                                                                             Print "@X0FCode @X07by @X03Cuminous @X08of"
  629.                                                                             Delay 1
  630.                                                                             If (Inkey() <> Chr(13)) Then
  631.                                                                                 AnsiPos 21, 22
  632.                                                                                 Print "@X07Code @X0Fby @X07Cuminous @X03of @X08Providence"
  633.                                                                                 Delay 1
  634.                                                                                 If (Inkey() <> Chr(13)) Then
  635.                                                                                     AnsiPos 21, 22
  636.                                                                                     Print "@X03Code @X07by @X0FCuminous @X07of @X03Providence @X081996"
  637.                                                                                     Delay 1
  638.                                                                                     If (Inkey() <> Chr(13)) Then
  639.                                                                                         AnsiPos 21, 22
  640.                                                                                         Print "@X08Code @X03by @X07Cuminous @X0Fof @X07Providence @X031996"
  641.                                                                                         Delay 1
  642.                                                                                         If (Inkey() <> Chr(13)) Then
  643.                                                                                             AnsiPos 21, 22
  644.                                                                                             Print "@X08Code by @X03Cuminous @X07of @X0FProvidence @X071996"
  645.                                                                                             Delay 1
  646.                                                                                             If (Inkey() <> Chr(13)) Then
  647.                                                                                                 AnsiPos 21, 22
  648.                                                                                                 Print "@X08Code by Cuminous @X03of @X07Providence @X0F1996"
  649.                                                                                                 Delay 1
  650.                                                                                                 If (Inkey() <> Chr(13)) Then
  651.                                                                                                     AnsiPos 21, 22
  652.                                                                                                     Print "@X08Code by Cuminous of @X03Providence @X071996"
  653.                                                                                                     Delay 1
  654.                                                                                                     If (Inkey() <> Chr(13)) Then
  655.                                                                                                         AnsiPos 21, 22
  656.                                                                                                         Print "@X08Code by Cuminous of Providence @X031996"
  657.                                                                                                         Delay 1
  658.                                                                                                         If (Inkey() <> Chr(13)) Then
  659.                                                                                                             AnsiPos 21, 22
  660.                                                                                                             Print "@X08Code by Cuminous of Providence 1996"
  661.                                                                                                             Delay 25
  662.                                                                                                             If (Inkey() <> Chr(13)) Then
  663.                                                                                                                 Delay 25
  664.                                                                                                                 If (Inkey() <> Chr(13)) Then
  665.                                                                                                                     Delay 25
  666.                                                                                                                     If (Inkey() <> Chr(13)) Then
  667.                                                                                                                         Delay 25
  668.                                                                                                                         If (Inkey() <> Chr(13)) Then
  669.                                                                                                                             AnsiPos 3, 22
  670.                                                                                                                             Print "                                                                           "
  671.                                                                                                                             AnsiPos 22, 22
  672.                                                                                                                             Print "@X08Ansi"
  673.                                                                                                                             Delay 1
  674.                                                                                                                             If (Inkey() <> Chr(13)) Then
  675.                                                                                                                                 AnsiPos 22, 22
  676.                                                                                                                                 Print "@X03Ansi@X08 by"
  677.                                                                                                                                 Delay 1
  678.                                                                                                                                 If (Inkey() <> Chr(13)) Then
  679.                                                                                                                                     AnsiPos 22, 22
  680.                                                                                                                                     Print "@X07Ansi @X03by @X08Scoundrel"
  681.                                                                                                                                     Delay 1
  682.                                                                                                                                     If (Inkey() <> Chr(13)) Then
  683.                                                                                                                                         AnsiPos 22, 22
  684.                                                                                                                                         Print "@X0FAnsi @X07by @X03Scoundrel @X08of"
  685.                                                                                                                                         Delay 1
  686.                                                                                                                                         If (Inkey() <> Chr(13)) Then
  687.                                                                                                                                             AnsiPos 22, 22
  688.                                                                                                                                             Print "@X07Ansi @X0Fby @X07Scoundrel @X03of @X08Providence"
  689.                                                                                                                                             Delay 1
  690.                                                                                                                                             If (Inkey() <> Chr(13)) Then
  691.                                                                                                                                                 AnsiPos 22, 22
  692.                                                                                                                                                 Print "@X03Ansi @X07by @X0FScoundrel @X07of @X03Providence @X081996"
  693.                                                                                                                                                 Delay 1
  694.                                                                                                                                                 If (Inkey() <> Chr(13)) Then
  695.                                                                                                                                                     AnsiPos 22, 22
  696.                                                                                                                                                     Print "@X08Ansi @X03by @X07Scoundrel @X0Fof @X07Providence @X031996"
  697.                                                                                                                                                     Delay 1
  698.                                                                                                                                                     If (Inkey() <> Chr(13)) Then
  699.                                                                                                                                                         AnsiPos 22, 22
  700.                                                                                                                                                         Print "@X08Ansi by @X03Scoundrel @X07of @X0FProvidence @X071996"
  701.                                                                                                                                                         Delay 1
  702.                                                                                                                                                         If (Inkey() <> Chr(13)) Then
  703.                                                                                                                                                             AnsiPos 22, 22
  704.                                                                                                                                                             Print "@X08Ansi by Scoundrel @X03of @X07Providence @X0F1996"
  705.                                                                                                                                                             Delay 1
  706.                                                                                                                                                             If (Inkey() <> Chr(13)) Then
  707.                                                                                                                                                                 AnsiPos 22, 22
  708.                                                                                                                                                                 Print "@X08Ansi by Scoundrel of @X03Providence @X071996"
  709.                                                                                                                                                                 Delay 1
  710.                                                                                                                                                                 If (Inkey() <> Chr(13)) Then
  711.                                                                                                                                                                     AnsiPos 22, 22
  712.                                                                                                                                                                     Print "@X08Ansi by Scoundrel of Providence @X031996"
  713.                                                                                                                                                                     Delay 1
  714.                                                                                                                                                                     If (Inkey() <> Chr(13)) Then
  715.                                                                                                                                                                         AnsiPos 22, 22
  716.                                                                                                                                                                         Print "@X08Ansi by Scoundrel of Providence 1996"
  717.                                                                                                                                                                         Delay 25
  718.                                                                                                                                                                         If (Inkey() <> Chr(13)) Then
  719.                                                                                                                                                                             Delay 25
  720.                                                                                                                                                                             If (Inkey() <> Chr(13)) Then
  721.                                                                                                                                                                                 Delay 25
  722.                                                                                                                                                                                 If (Inkey() <> Chr(13)) Then
  723.                                                                                                                                                                                     Delay 25
  724.                                                                                                                                                                                     If (Inkey() <> Chr(13)) Then
  725.                                                                                                                                                                                         AnsiPos 3, 22
  726.                                                                                                                                                                                         Print "                                                                           "
  727.                                                                                                                                                                                         AnsiPos 17, 22
  728.                                                                                                                                                                                         Print "@X08PROViDENCE -"
  729.                                                                                                                                                                                         Delay 1
  730.                                                                                                                                                                                         If (Inkey() <> Chr(13)) Then
  731.                                                                                                                                                                                             AnsiPos 17, 22
  732.                                                                                                                                                                                             Print "@X03PROViDENCE - @X08'Its"
  733.                                                                                                                                                                                             Delay 1
  734.                                                                                                                                                                                             If (Inkey() <> Chr(13)) Then
  735.                                                                                                                                                                                                 AnsiPos 17, 22
  736.                                                                                                                                                                                                 Print "@X07PROViDENCE - @X03'Its @X08Quality,"
  737.                                                                                                                                                                                                 Delay 1
  738.                                                                                                                                                                                                 If (Inkey() <> Chr(13)) Then
  739.                                                                                                                                                                                                     AnsiPos 17, 22
  740.                                                                                                                                                                                                     Print "@X0FPROViDENCE - @X07'Its @X03Quality, @X08Not"
  741.                                                                                                                                                                                                     Delay 1
  742.                                                                                                                                                                                                     If (Inkey() <> Chr(13)) Then
  743.                                                                                                                                                                                                         AnsiPos 17, 22
  744.                                                                                                                                                                                                         Print "@X07PROViDENCE - @X0F'Its @X07Quality, @X03Not @X08Quantity"
  745.                                                                                                                                                                                                         Delay 1
  746.                                                                                                                                                                                                         If (Inkey() <> Chr(13)) Then
  747.                                                                                                                                                                                                             AnsiPos 17, 22
  748.                                                                                                                                                                                                             Print "@X03PROViDENCE - @X07'Its @X0FQuality, @X07Not @X03Quantity @X08As"
  749.                                                                                                                                                                                                             Delay 1
  750.                                                                                                                                                                                                             If (Inkey() <> Chr(13)) Then
  751.                                                                                                                                                                                                                 AnsiPos 17, 22
  752.                                                                                                                                                                                                                 Print "@X08PROViDENCE - @X03'Its @X07Quality, @X0FNot @X07Quantity @X03As @X08Counts'"
  753.                                                                                                                                                                                                                 Delay 1
  754.                                                                                                                                                                                                                 If (Inkey() <> Chr(13)) Then
  755.                                                                                                                                                                                                                     AnsiPos 17, 22
  756.                                                                                                                                                                                                                     Print "@X08PROViDENCE - 'Its @X03Quality, @X07Not @X0FQuantity @X07As @X03Counts'"
  757.                                                                                                                                                                                                                     Delay 1
  758.                                                                                                                                                                                                                     If (Inkey() <> Chr(13)) Then
  759.                                                                                                                                                                                                                         AnsiPos 17, 22
  760.                                                                                                                                                                                                                         Print "@X08PROViDENCE - 'Its Quality, @X03Not @X07Quantity @X0FAs @X07Counts'"
  761.                                                                                                                                                                                                                         Delay 1
  762.                                                                                                                                                                                                                         If (Inkey() <> Chr(13)) Then
  763.                                                                                                                                                                                                                             AnsiPos 17, 22
  764.                                                                                                                                                                                                                             Print "@X08PROViDENCE - 'Its Quality, Not @X03Quantity @X07As @X0FCounts'"
  765.                                                                                                                                                                                                                             Delay 1
  766.                                                                                                                                                                                                                             If (Inkey() <> Chr(13)) Then
  767.                                                                                                                                                                                                                                 AnsiPos 17, 22
  768.                                                                                                                                                                                                                                 Print "@X08PROViDENCE - 'Its Quality, Not Quantity @X03As @X07Counts'"
  769.                                                                                                                                                                                                                                 Delay 1
  770.                                                                                                                                                                                                                                 If (Inkey() <> Chr(13)) Then
  771.                                                                                                                                                                                                                                     AnsiPos 17, 22
  772.                                                                                                                                                                                                                                     Print "@X08PROViDENCE - 'Its Quality, Not Quantity As @X03Counts'"
  773.                                                                                                                                                                                                                                     Delay 1
  774.                                                                                                                                                                                                                                     If (Inkey() <> Chr(13)) Then
  775.                                                                                                                                                                                                                                         AnsiPos 17, 22
  776.                                                                                                                                                                                                                                         Print "@X08PROViDENCE - 'Its Quality, Not Quantity As Counts'"
  777.                                                                                                                                                                                                                                         Delay 25
  778.                                                                                                                                                                                                                                         If (Inkey() <> Chr(13)) Then
  779.                                                                                                                                                                                                                                             Delay 25
  780.                                                                                                                                                                                                                                             If (Inkey() <> Chr(13)) Then
  781.                                                                                                                                                                                                                                                 Delay 25
  782.                                                                                                                                                                                                                                                 If (Inkey() <> Chr(13)) Then
  783.                                                                                                                                                                                                                                                     Delay 25
  784.                                                                                                                                                                                                                                                     If (Inkey() <> Chr(13)) Then
  785.                                                                                                                                                                                                                                                         Goto LABEL001
  786.                                                                                                                                                                                                                                                     Endif
  787.                                                                                                                                                                                                                                                 Endif
  788.                                                                                                                                                                                                                                             Endif
  789.                                                                                                                                                                                                                                         Endif
  790.                                                                                                                                                                                                                                     Endif
  791.                                                                                                                                                                                                                                 Endif
  792.                                                                                                                                                                                                                             Endif
  793.                                                                                                                                                                                                                         Endif
  794.                                                                                                                                                                                                                     Endif
  795.                                                                                                                                                                                                                 Endif
  796.                                                                                                                                                                                                             Endif
  797.                                                                                                                                                                                                         Endif
  798.                                                                                                                                                                                                     Endif
  799.                                                                                                                                                                                                 Endif
  800.                                                                                                                                                                                             Endif
  801.                                                                                                                                                                                         Endif
  802.                                                                                                                                                                                     Endif
  803.                                                                                                                                                                                 Endif
  804.                                                                                                                                                                             Endif
  805.                                                                                                                                                                         Endif
  806.                                                                                                                                                                     Endif
  807.                                                                                                                                                                 Endif
  808.                                                                                                                                                             Endif
  809.                                                                                                                                                         Endif
  810.                                                                                                                                                     Endif
  811.                                                                                                                                                 Endif
  812.                                                                                                                                             Endif
  813.                                                                                                                                         Endif
  814.                                                                                                                                     Endif
  815.                                                                                                                                 Endif
  816.                                                                                                                             Endif
  817.                                                                                                                         Endif
  818.                                                                                                                     Endif
  819.                                                                                                                 Endif
  820.                                                                                                             Endif
  821.                                                                                                         Endif
  822.                                                                                                     Endif
  823.                                                                                                 Endif
  824.                                                                                             Endif
  825.                                                                                         Endif
  826.                                                                                     Endif
  827.                                                                                 Endif
  828.                                                                             Endif
  829.                                                                         Endif
  830.                                                                     Endif
  831.                                                                 Endif
  832.                                                             Endif
  833.                                                         Endif
  834.                                                     Endif
  835.                                                 Endif
  836.                                             Endif
  837.                                         Endif
  838.                                     Endif
  839.                                 Endif
  840.                             Endif
  841.                         Endif
  842.                     Endif
  843.                 Endif
  844.                 End
  845.             Endif
  846.         Endif
  847.     Endif
  848.     Print "A SERIOUS ERROR FOUND! PLEASE MSG SYSOP AND TELL HIM TO REINSTALL THIS PPE!"
  849.     End
  850.  
  851. ;------------------------------------------------------------------------------
  852. ;
  853. ; Usage report (before postprocessing)
  854. ;
  855. ; ■ Statements used :
  856. ;
  857. ;    2       End
  858. ;    64      Goto 
  859. ;    6       Let 
  860. ;    111     Print 
  861. ;    62      If 
  862. ;    1       DispFile 
  863. ;    3       FCreate 
  864. ;    5       FOpen 
  865. ;    8       FClose 
  866. ;    131     FGet 
  867. ;    126     FPutLn 
  868. ;    1       GetUser
  869. ;    2       Delete 
  870. ;    59      Delay 
  871. ;    110     AnsiPos 
  872. ;
  873. ;
  874. ; ■ Functions used :
  875. ;
  876. ;    205     +
  877. ;    1       ==
  878. ;    58      <>
  879. ;    62      !
  880. ;    58      Chr()
  881. ;    1       U_Ful()
  882. ;    1       U_Fdl()
  883. ;    58      Inkey()
  884. ;    14      PPEPath()
  885. ;    1       U_MsgRd()
  886. ;    1       U_MsgWr()
  887. ;    1       PcbNode()
  888. ;    3       Exist()
  889. ;    2       U_Stat()
  890. ;
  891. ;------------------------------------------------------------------------------
  892. ;
  893. ; Analysis flags : No flag
  894. ;
  895. ;------------------------------------------------------------------------------
  896. ;
  897. ; Postprocessing report
  898. ;
  899. ;    0       For/Next
  900. ;    0       While/EndWhile
  901. ;    62      If/Then or If/Then/Else
  902. ;    0       Select Case
  903. ;
  904. ;------------------------------------------------------------------------------
  905. ;                 AEGiS Corp - Break the routines, code against the machines!
  906. ;------------------------------------------------------------------------------
  907.